Directory Structure

      DBaseDir      = Record
                        Name   :String[12];
                        Number :Word;
                        Offset :LongInt;
                        Size   :Word;
                        Attr   :Byte;
                        Next   :DBaseDirPtr;
                      End;

    This structure forms a  linked  list  of  directories.   The database
    unit never checks for memory  when  creating a new node.  This is the
    caller's responsibility.

      DBaseMain     = Record
                        Total  :Word;
                        Root   :Pointer;
                        Data   :DBaseDirPtr;
                      End;

    This forms the shell of the linked  list.   Total is the total number
    of nodes, Root is the first  directory  item  and Data is the current
    directory item which the  unit  is  using.   The  user  may  use Data
    because the value is always reset when  a method is called.  Root and
    Total may however never be modified by the user.